home *** CD-ROM | disk | FTP | other *** search
/ Secret Rendez-vous / Secret Rendez-vous.iso / pc / starware.exe / starware.DXR / 00042_InitPaths Script.ls < prev    next >
Encoding:
Text File  |  1995-05-02  |  317 b   |  11 lines
  1. on initPaths
  2.   set the searchPath to []
  3.   set saveDelim to the itemDelimiter
  4.   set the itemDelimiter to ":"
  5.   set volName to item 1 of the pathName & ":"
  6.   set the itemDelimiter to saveDelim
  7.   append(the searchPath, volName)
  8.   append(the searchPath, volName & "CAST:")
  9.   append(the searchPath, volName & "MOVS:")
  10. end
  11.